﻿Imports System.Transactions
Imports CondorTravel.BE
Imports CondorTravel.DALC

Public Class UsuarioBC

    Private objUsuarioDALC As UsuariosDALC

    Public Sub New()
        objUsuarioDALC = New UsuariosDALC
    End Sub

    Public Function ListarUsuarios() As List(Of UsuariosBE)
        Dim objListaUsuarios As List(Of UsuariosBE) = Nothing
        objListaUsuarios = New List(Of UsuariosBE)()
        objListaUsuarios = objUsuarioDALC.ListarUsuarios()

        Return objListaUsuarios
    End Function

    Public Function ValidarLogin(ByVal objUsuarioBE As UsuariosBE, ByRef bExito As Boolean, ByRef sMensaje As String, ByRef strCodigoRol As String) As Boolean
        Dim strUsuario As String = objUsuarioBE.CodUsuario
        Dim strPassword As String = objUsuarioBE.Password

        Return objUsuarioDALC.ValidarLogin(strUsuario, strPassword, bExito, sMensaje, strCodigoRol)

    End Function


End Class
